home *** CD-ROM | disk | FTP | other *** search
- object frmInterval: TfrmInterval
- Left = 313
- Top = 180
- ActiveControl = EditInterval
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Set Time Interval'
- ClientHeight = 203
- ClientWidth = 369
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 16
- object lblIntervalDescription: TLabel
- Left = 16
- Top = 12
- Width = 338
- Height = 56
- Caption =
- 'The smaller the time interval, the more accurate the simulation,' +
- ' but the slower it runs. This is why you have to balance the acc' +
- 'uracy of the simulation with its speed.'
- WordWrap = True
- end
- object lblSeconds: TLabel
- Left = 296
- Top = 87
- Width = 54
- Height = 16
- Caption = 'Seconds'
- end
- object lblinterval: TLabel
- Left = 12
- Top = 84
- Width = 80
- Height = 16
- Caption = '&Time Interval:'
- FocusControl = EditInterval
- end
- object EditInterval: TEdit
- Left = 107
- Top = 83
- Width = 181
- Height = 24
- TabOrder = 0
- Text = '1'
- OnChange = EditIntervalChange
- end
- object ScrollBarInterval: TScrollBar
- Left = 12
- Top = 127
- Width = 346
- Height = 20
- Max = 13
- TabOrder = 1
- TabStop = False
- OnScroll = ScrollBarIntervalScroll
- end
- object butCancel: TButton
- Left = 176
- Top = 168
- Width = 83
- Height = 25
- Caption = '&Cancel'
- TabOrder = 2
- OnClick = ButtonClick
- end
- object butOk: TButton
- Left = 272
- Top = 168
- Width = 83
- Height = 25
- Caption = '&Ok'
- Default = True
- TabOrder = 3
- OnClick = ButtonClick
- end
- end
-